home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 March / 64er_Magazin_87-03_1987_Markt__Technik_de_Side_A.d64 / geos auf 50hz (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.3 KB  |  44 lines
  1. 10 rem -- make50hz erzeugt euro-geos --
  2. 15 rem     thorsten petrowski 10/86
  3. 20 rem            (c) 64'er
  4. 25 :
  5. 30 :
  6. 35 a=a+1:if a=1 then load"gdm.obj",8,1:rem maschinencode laden
  7. 40 print"[147]geos-kernal disk einlegen - taste ":rem anweisung ausgeben
  8. 45 poke 198,0:wait 198,1:rem auf taste warten
  9. 50 :
  10. 55 :
  11. 60 open 15,8,15,"ui":print#15,"io":rem disk initialisieren
  12. 65 open 2,8,2,"geos kernal":rem geos-kernal oeffnen
  13. 70 :
  14. 75 gosub 200:rem disk-status pruefen
  15. 80 :
  16. 85 sys 49152:rem recordliste (vlir) lesen
  17. 86 close2:open2,8,2"#"
  18. 90 :
  19. 95 tr=peek(49666):se=peek(49667):rem block/sektor des zweiten records holen
  20. 100 print#15,"b-p:2 0":rem kanal 2 ruecksetzen (auf 0.byte)
  21. 105 :
  22. 110 poke 53265,11:rem bildschirm aus
  23. 115 :
  24. 120 for re=0 to 16:rem 17 blocks ueberspringen
  25. 125 :print#15,"u1:2 0";tr;se:rem block nr re lesen
  26. 130 :sys 49152:rem und in speicher holen
  27. 135 ta=tr:sa=se:rem spur/sektor merken
  28. 140 tr=peek(49664):se=peek(49665):rem und spur/sektor naechster block holen
  29. 145 next re:rem ende der schleife
  30. 150 :
  31. 155 poke 49774,128:rem wert fuer cia register netzfrequenz auf 50hz setzen
  32. 160 :
  33. 161 print#15,"b-p:2 0"
  34. 165 sys 49193:print#15,"u2:2 0";ta;sa:rem block rueckschreiben
  35. 170 :
  36. 175 poke 53265,27:rem bildschirm wieder an
  37. 180 :
  38. 185 close 15:close 2:rem kanaele schliessen
  39. 190 print"geos-kernal auf 50hz takt umgeschaltet":end:rem meldung ausgeben
  40. 195 :
  41. 200 rem --- disk-error ---
  42. 205 input#15,ec,e$,t,s:print"disk:";ec;e$;t;s:rem fehlerkanal lesen
  43. 210 return:rem zurueck
  44.